home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / allmac21.arc / BOOK13.ARC / BOOK13.QM < prev    next >
Text File  |  1990-08-27  |  10KB  |  215 lines
  1. *                           (BookMarker) v1.3
  2. * ┌────────────────────────[ Index of Macros ]─────────────────────────────────┐
  3. * │(Alt_1)- Finds first word on cursor line "marked" in the document below     │
  4. * │(Alt_2)- Finds first word on cursor line in document below, "marked" or     │
  5. * │        "unmarked", and places () around selected found word in document    │
  6. * │(Alt_3)- Puts word @ cursor in Index with () around word and word in Index  │
  7. * │(F4)   - Continues until the desired word & location are found using Alt_2  │
  8. * │                                                                            │
  9. * │(Description)    - BookMarker Macros                                        │
  10. * │(Using) Macros   - Start up and Macro Execution                             │
  11. * │(Macros)         - BookMarker Macros                                        │
  12. * │(Other) Macros   - not included                                             │
  13. * │(Version) history                                                           │
  14. * └────────[ be sure to leave at least one blank line at end of Index ]────────┘
  15.  
  16.  
  17. * (Description):
  18. *
  19. *        BookMarker BOOK13.ZIP is a series of four macros to place ()
  20. *        around selected words in QEdit documents as bookmarks. A bookmark
  21. *        can then be quickly located from an index of book-marked words
  22. *        (also prepared with these macros) at the top of the document by
  23. *        pressing Alt_1.
  24. *
  25. *        Of the many macros I use regularly, Alt_1 is probably the one
  26. *        I use most. It has become so important I could not maneuver
  27. *        without it. Documents I use regularly are Indexed with either
  28. *        Alt_2 or 3. I can quickly get to where I want to be in a
  29. *        document or a help file by entering Alt & 1 at the same time,
  30. *        placing the cursor on the line in an Index I want to locate in
  31. *        the document, and then pressing Enter. Presto, I'm there
  32. *        without having to scroll through the document.
  33. *
  34. *
  35. * (Using) Macros:
  36. *
  37. *       To execute these macros, be sure Insert is ON and then:
  38. *       1. Place BOOK13.MAC and BOOK13.QM in the current directory.
  39. *       2. Load  BOOK13.QM into a QEdit window.
  40. *       3. Read the macfile BOOK13.MAC as follows:
  41. *                Esc
  42. *                M
  43. *                R
  44. *                BOOK13.MAC
  45. *                Enter
  46. *       4. Press ALT and 1 at the same time and proceed as
  47. *       described below.
  48. *
  49. *       These macros may also be placed in your QCONFIG.DAT file to be
  50. *       continually available.
  51. *
  52. *
  53. * (Macros):
  54. *
  55. *┌───────────────────────────────────────────────────────────────────┐
  56. *│(Alt_1) Finds first word on cursor line marked in document below   │
  57. *└───────────────────────────────────────────────────────────────────┘
  58. *
  59. *        Alt_1 macro has 2 steps:
  60. *
  61. *        1. Press Alt and 1 at the same time. A down arrow shows at the
  62. *        end of the top line. Cursor down to desired line in Index.
  63. *
  64. *        2. Press Enter. The macro first erases the down arrow, and
  65. *        then finds the first word on the cursor line in the document
  66. *        below marked with (...). The word in the Index need not be marked
  67. *        with () around it even though Alt_2 & 3 do so.
  68. *
  69. @1 macrobegin
  70.         unmarkblock                     * unmark any marked blocks
  71.         begfile endline                 * go to file begin endline
  72.         #25                             * put down arrow at endline
  73.         begline
  74.         find #25 return return begline  * highlight down arrow
  75.         pause                           * pause for Index selection
  76.         wordright markword              * mark first word on line
  77.         copy                            * copy word to scrap buffer
  78.         begfile                         * begfile
  79.         find #25 return return delch    * find & delete down arrow
  80.         endpara                         * go to end of Index
  81.         makectrofscreen                 * cursor line center of window
  82.         find "(" paste ")"
  83.         return "I" return               * find first marked word in doc
  84.  jfalse NOMARK:
  85.         begline                         * if mark found go to begline
  86.  jump END:
  87.  NOMARK:
  88.         begfile                         * if no mark found go to begfile
  89.  END:
  90. *
  91. * 47 bytes Sat  07-28-1990  15:17:42
  92.  
  93.  
  94. *        If you load this macro in your QCONFIG.DAT, substitute #25
  95. *        with "" (^P_Y). This macro is 47 bytes. You may want to
  96. *        load a shorter version (19 bytes) without the highlighted
  97. *        down arrow and marker searching starts from cursor line in
  98. *        Index down, not at the end of the Index as above:
  99.  
  100. *@1 macrobegin
  101. *        unmarkblock                    * unmark any marked blocks
  102. *        begfile                        * go to file begin endline
  103. *        pause                          * pause for Index selection
  104. *        wordright markword             * mark first word on line
  105. *        copy                           * copy word to scrap
  106. *        find "(" paste ")" return      * find first marked word in doc
  107. *        return
  108. *        begline                        * if mark found go to begline
  109. *
  110.  
  111.  
  112. *┌─────────────────────────────────────────────────────────────────────────────┐
  113. *│(Alt_2) Finds word in document, adds () to found word and returns to Index   │
  114. *└─────────────────────────────────────────────────────────────────────────────┘
  115. *
  116. *      Alt_2 macro has 3 steps:
  117. *
  118. *       1. Press Alt and 2 at the same time. The macro finds first word
  119. *       on the cursor line in the document below. If first found word
  120. *       is not the desired occurrence, press F4 for next word or until
  121. *       the desired occurrence is found.
  122. *
  123. *       2. When the desired word and location are found, press Enter.
  124. *       The macro places () around desired found word and then return
  125. *       to the original word in the Index.
  126. *
  127. *       3. Press Enter again and the macro places () around the original
  128. *       word in the Index. The cursor ends at end of the marked word in
  129. *       the Index so comments may be added. Be careful not to mark the
  130. *       same word more than once or only the first occurrence of the word
  131. *       in the document will be found with Alt_1.
  132. *
  133. @2      macrobegin                      *
  134.         wordright markword              * mark first word on line
  135.         copy                            * copy word to scrap
  136.         find paste return return        * find first word in doc
  137.         pause                           * pause for Enter or F4
  138.        "("                              * place ( in front of word
  139.         markword                        * markword
  140.         gotoblockend ")"                * place ) at end of word
  141.         pause                           * pause for Enter if OK
  142.         begfile                         * go to file begin
  143.         find paste return return        * find selected word doc
  144.         pause                           * pause for Enter if OK
  145.         markword                        * markword
  146.         gotoblockbeg "("                * place ( in front of word
  147.         gotoblockend ") "               * place ) at end of word
  148.         unmarkblock                     * unmark word
  149. *
  150. * 35 bytes Sat  07-28-1990  15:17:55
  151.  
  152.  
  153. *┌─────────────────────────────────────────────────────────────────────────────┐
  154. *│(Alt_3), Puts word @ cursor in Index with () around marked word and in Index │
  155. *└─────────────────────────────────────────────────────────────────────────────┘
  156. *
  157. *        Alt_3 macro has 2 steps:
  158. *
  159. *        1. Press Alt and 3 at the same time. Macro marks the word at the
  160. *        cursor in the document, then returns to the the end of the Index.
  161. *        The marked word in the document is then copied at the end of the
  162. *        Index with () around it. The cursor is at end of word so
  163. *        comments may be added in the Index.
  164. *
  165. *        2. Press Enter and the cursor returns to the beginning of
  166. *        the line of the marked word in the document.
  167. *
  168. @3      macrobegin                      *
  169.         markword                        * mark word at cursor
  170.         gotoblockbeg "("                * place () around word
  171.         gotoblockend ")"                *
  172.         copy                            * copy word and ) to scrap
  173.         begfile                         * go to file begin
  174.         endpara return                  * go to end of Index
  175.         paste                           * paste word and )
  176.         begline "* (" endline " "       * insert "* (" in front of word
  177.         unmarkblock makebotofscreen     * unmark word and ()
  178.         pause                           * pause for comments and if OK
  179.         begline wordright markword      * mark word
  180.         copy                            * copy word to scrap
  181.         find "(" paste ")"  return      * return to word in doc
  182.         return
  183.         begline                         * go to line begin
  184. *
  185. * 42 bytes Sat  07-28-1990  15:18:04
  186.  
  187.  
  188. *┌────────────────────────────────────────────────────────────┐
  189. *│(f4) Continues until desired word is found using Alt_2      │
  190. *└────────────────────────────────────────────────────────────┘
  191. *
  192. *       (see Alt_2 for use)
  193. *
  194. f4      repeatfind                      * repeat find until desired word
  195.                                         *  & location are found
  196. * 5 bytes Sat  07-28-1990  15:18:17
  197.  
  198.  
  199. * (Other) Macros: See ALLMACRO.INF
  200. *
  201. * (Version) History:
  202. *
  203. *   1.0 - initial
  204. *   1.1 - changed document
  205. *   1.2 - modified Alt_1 to keep normal cursor line color before selecting
  206. *         an indexed word. Macro now does not find marked words in Index.
  207. *   1.3 - changed document BOOK13.QM
  208.  
  209. * (QEdit)    is not a marked Index word
  210. * (unmarked) is not a marked Index word
  211. * (be)       is not a marked Index word
  212. * (window)   is not a marked Index word
  213. *
  214. *...Tom Hogshead  Tue  07-24-1990  21:56:43
  215.